﻿(define force
  (lambda (object)
    (object)))

(define (values . things)
  (call-with-current-continuation 
    (lambda (cont) (apply cont things))))